﻿Imports System.Timers

'класс-наследник для BaseMobile
Public Class NewMobile
    Inherits BaseMobile

#Region "Конструкторы"
    Public Sub New()
        MyBase.New()
        'новыйе цвета для новго телефона
        HasSensorScreen = True
        Color = {"Красный", "Серебристый"}
    End Sub
#End Region

#Region "Методы"
    'переопределение путей для звуковых файлов
    Protected Overrides Function GetRingBellSound() As String
        Return Application.StartupPath & "\Sounds\new_ringbell.mp3"
    End Function

    Protected Overrides Function GetLowBatterySound() As String
        Return Application.StartupPath & "\Sounds\new_lowbattery.mp3"
    End Function

    Protected Overrides Function GetSmsSound() As String
        Return Application.StartupPath & "\Sounds\new_message.mp3"
    End Function
#End Region
End Class
